QRZ! Ham Radio 3/QRZ Ham Radio Callsign Database - Volume 3.iso/world/mac/contest/dxmapsea.hqx/DX Map 1.1.1/NumToInfo.p

Text File | 1992-09-05 | 22KB | 675 lines

unit NumToInfo;
interface
    uses
        XCmdIntf, XCmdUtils;

    procedure main (paramPtr: XCmdPtr);

implementation

    procedure main;
        const
            space = ' ';
        var
            info: string;
            str: Str255;
            index: integer;
    begin
        ZeroToPas(paramPtr, paramPtr^.params[1]^, str);
        index := StrToNum(paramPtr, str);
        case index of
            1:
                info := 'A2,Botswana,Africa,57,38,2,-25,26,A2;8O';
            2:
                info := 'A3,Tonga,Oceania,62,32,13,-21,-175,A3';
            3:
                info := 'A4,Oman,Asia,39,21,4,24,59,A4';
            4:
                info := 'A5,Bhutan,Asia,41,22,5.5,27,90,A5';
            5:
                info := 'A6,United Arab Emirates,Asia,39,21,4,24,54,A6';
            6:
                info := 'A7,Qatar,Asia,39,21,4,25,52,A7';
            7:
                info := 'A9,Bahrain,Asia,39,21,4,26,51,A9';
            8:
                info := 'AP,Pakistan,Asia,41,21,5,34,73,AP-AS;6P-6S';
            9:
                info := 'BV,Taiwan,Asia,44,24,8,25,122,BV';
            10:
                info := 'BY,China,Asia,33;42;43;44,23;24,8,40,116,BA-BZ;XS;3H-3U';
            11:
                info := 'C2,Nauru,Oceania,65,31,11.5,0,167,C2';
            12:
                info := 'C3,Andorra,Europe,27,14,1,43,2,C3';
            13:
                info := 'C5,The Gambia,Africa,46,35,0,13,-17,C5';
            14:
                info := 'C6,Bahamas,N. America,11,8,-5,25,-77,C6';
            15:
                info := 'C9,Mozambique,Africa,53,37,2,-26,33,C8-C9';
            16:
                info := 'CE,Chile,S. America,14;16,12,-4,-33,-71,CA-CE;XQ-XR;3G';
            17:
                info := 'CE9,Antarctica,Antarctica,67;69;70;71;72;73;74,12;13;29;30;32;38;39,0,90,0,AT0;DP0;FT_Y;KC4;LU_Z;OR4;VK0;VP8;Y8;ZL5;ZS7;ZX0;3Y;4K1;8J1';
            18:
                info := 'CE0A,Easter Is,S. America,63,12,-7,-27,-109,CE0A';
            19:
                info := 'CE0X,San Felix,S. America,14,12,-5,-26,-80,CE0X';
            20:
                info := 'CE0Z,Juan Fernandez,S. America,14,12,-4,-34,-79,CE0Z';
            21:
                info := 'CN,Morocco,Africa,37,33,0,34,-7,CN;5C-5G';
            22:
                info := 'CO,Cuba,N. America,11,8,-5,23,-82,CL;CM;CO;T4';
            23:
                info := 'CP,Bolivia,S. America,12;14,10,-4,-17,-68,CP';
            24:
                info := 'CT,Portugal,Europe,37,14,1,39,-9,CQ-CU;XX';
            25:
                info := 'CT3,Madeira Is,Africa,36,33,-1,33,-17,CT3';
            26:
                info := 'CU,Azores,Europe,36,14,-1,38,-26,CT2';
            27:
                info := 'CX,Uruguay,S. America,14,13,-3,-35,-56,CV-CX';
            28:
                info := 'CY9,St Paul Is,N. America,9,5,-5,47,-60,CY9';
            29:
                info := 'CY0,Sable Is,N. America,9,5,-5,44,-60,CY0';
            30:
                info := 'D2,Angola,Africa,52,36,1,-9,13,D2-D3';
            31:
                info := 'D4,Cape Verde,Africa,46,35,-2,15,-23,D4';
            32:
                info := 'D6,Comoros,Africa,53,39,3,-12,43,D6';
            33:
                info := 'DL,Germany,Europe,28,14,1,52,7,DA-DR;Y2-Y9';
            34:
                info := 'DU,Philippines,Oceania,50,27,8,15,121,DU-DZ;4D-4I';
            35:
                info := 'EA,Spain,Europe,37,14,1,40,-4,AM-AO;EA-EH';
            36:
                info := 'EA6,Balearic Is,Europe,37,14,1,38,3,EA6';
            37:
                info := 'EA8,Canary Is,Africa,36,33,0,28,-15,EA8';
            38:
                info := 'EA9,Ceuta & Melilla,Africa,37,33,1,36,-5,EA9';
            39:
                info := 'EI,Ireland,Europe,27,14,0,53,-6,EI-EJ';
            40:
                info := 'EL,Liberia,Africa,46,35,-0.75,6,-11,A8;D5;EL;5L-5M;6Z';
            41:
                info := 'EP,Iran,Asia,40,21,3.5,36,51,EP-EQ;9B-9D';
            42:
                info := 'ES,Estonia,Europe,29,15,3,59,25,UR';
            43:
                info := 'ET,Ethiopia,Africa,48,37,3,9,39,ET;9E-9F';
            44:
                info := 'F,France,Europe,27,14,1,49,2,FA-FZ;HW-HY;TH;TK;TM;TO-TQ;TV-TX';
            45:
                info := 'FG,Guadeloupe,N. America,11,8,-4,16,-62,FG';
            46:
                info := 'FH,Mayotte,Africa,53,39,3,-13,45,FH';
            47:
                info := 'FK,New Caledonia,Oceania,56,32,11,-22,167,FK';
            48:
                info := 'FM,Martinique,N. America,11,8,-4,15,-61,FM';
            49:
                info := 'FO,Clipperton Is,N. America,10,7,-7,10,-109,FO';
            50:
                info := 'FO,French Polynesia,Oceania,63,32,-10,-18,-150,FO';
            51:
                info := 'FP,St Pierre & Miquelon,N. America,9,5,-4,47,-56,FP';
            52:
                info := 'FR,Glorioso Is,Africa,53,39,3,-12,47,FR';
            53:
                info := 'FR,Juan de Nova; Europa,Africa,53,39,3,17,43,FR';
            54:
                info := 'FR,Reunion,Africa,53,39,4,-21,55,FR';
            55:
                info := 'FR,Tromelin,Africa,53,39,4,-16,54,FR';
            56:
                info := 'FS,St Martin,N. America,11,8,-4,18,-63,FG;FJ';
            57:
                info := 'FT_W,Crozet,Africa,68,39,3,-46,52,FT_W';
            58:
                info := 'FT_X,Kerguelen Is,Africa,68,39,5,-50,70,FT_X';
            59:
                info := 'FT_Z,Amsterdam & St Paul Is,Africa,68,39,5,-38,78,FT_Z';
            60:
                info := 'FW,Wallis & Futuna Is,Oceania,62,32,-10.5,-14,-172,FW';
            61:
                info := 'FY,French Guiana,S. America,12,9,-4,5,-52,FY';
            62:
                info := 'G,England,Europe,27,14,0,52,0,GA-GZ;MA-MZ;VP-VS;ZB-ZJ;ZN-ZO;ZQ;2A-2Z';
            63:
                info := 'GD,Isle of Man,Europe,27,14,0,54,-4,GD';
            64:
                info := 'GI,No Ireland,Europe,27,14,0,55,-6,GI';
            65:
                info := 'GJ,Jersey,Europe,27,14,0,49,-2,GJ';
            66:
                info := 'GM,Scotland,Europe,27,14,0,57,-2,GM';
            67:
                info := 'GU,Guernsey,Europe,27,14,0,49,-3,GU';
            68:
                info := 'GW,Wales,Europe,27,14,0,52,-3,GW';
            69:
                info := 'H4,Solomon Is,Oceania,51,28,11,-9,160,H4';
            70:
                info := 'HA,Hungary,Europe,28,15,1,48,19,HA;HG';
            71:
                info := 'HB,Switzerland,Europe,28,14,1,47,7,HB;HE';
            72:
                info := 'HB0,Liechtenstein,Europe,28,14,1,47,10,HB0';
            73:
                info := 'HC,Ecuador,S. America,12,10,-5,0,-79,HC-HD';
            74:
                info := 'HC8,Galapagos Is,S. America,12,10,-5,-1,-90,HC8';
            75:
                info := 'HH,Haiti,N. America,11,8,-5,19,-72,HH;4V';
            76:
                info := 'HI,Dominican Rep,N. America,11,8,-5,18,-70,HI';
            77:
                info := 'HK,Colombia,S. America,12,9,-5,5,-74,HJ-HK;5J-5K';
            78:
                info := 'HK0,Malpelo Is,S. America,12,9,-5,4,-82,HK0';
            79:
                info := 'HK0,San Andres & Providencia,N. America,11,7,-6,13,-82,HK0';
            80:
                info := 'HL,Korea,Asia,44,25,9,38,127,DS-DT;D7-D9;HL-HM;P5-P9;6K-6N';
            81:
                info := 'HP,Panama,N. America,11,7,-5,9,-80,HO-HP;H3;H8-H9;3E-3F';
            82:
                info := 'HR,Honduras,N. America,11,7,-6,14,-87,HQ-HR';
            83:
                info := 'HS,Thailand,Asia,49,26,6,14,101,HS';
            84:
                info := 'HV,Vatican,Europe,28,15,1,42,13,HV';
            85:
                info := 'HZ,Saudi Arabia,Asia,39,21,3,25,47,HZ;7Z;8Z';
            86:
                info := 'I,Italy,Europe,28,15,1,42,12,IA-IZ';
            87:
                info := 'IS,Sardinia,Europe,28,15,1,39,9,IS';
            88:
                info := 'J2,Djibouti,Africa,48,37,3,12,43,J2';
            89:
                info := 'J3,Grenada,N. America,11,8,-4,12,-62,J3';
            90:
                info := 'J5,Guinea-Bissau,Africa,46,35,-1,12,-16,J5';
            91:
                info := 'J6,St Lucia,N. America,11,8,-4,14,-61,J6';
            92:
                info := 'J7,Dominica,N. America,11,8,-4,15,-61,J7';
            93:
                info := 'J8,St Vincent,N. America,11,8,-4,13,-61,J8';
            94:
                info := 'JA,Japan,Asia,45,25,9,36,140,JA-JS;7J-7N;8J-8N;KA1';
            95:
                info := 'JD,Minami Torishima,Oceania,45,27,10,24,154,KA1';
            96:
                info := 'JD,Ogasawara,Asia,45,27,10,28,142,KA1';
            97:
                info := 'JT,Mongolia,Asia,32;33,23,7.5,48,107,JT-JV';
            98:
                info := 'JW,Svalbard,Europe,18,40,1,78,16,JW';
            99:
                info := 'JX,Jan Mayen,Europe,18,40,-1,71,-9,JX';
            100:
                info := 'JY,Jordan,Asia,39,20,2,32,36,JY';
            101:
                info := 'K,United States,N. America,06;07;08,03;04;05,-5,39,-77,AA-AL;KA-KZ;NA-NZ;WA-WZ';
            102:
                info := 'KC6,Belau,Oceania,64,27,10,7,134,KC6';
            103:
                info := 'KG4,Guantanamo Bay,N. America,11,8,-5,20,-75,KG4';
            104:
                info := 'KH1,Baker & Howland Is,Oceania,61,31,-12,0,-176,KH1';
            105:
                info := 'KH2,Guam,Oceania,64,27,10,13,145,KH2';
            106:
                info := 'KH3,Johnston Is,Oceania,61,31,-11,17,-170,KH3';
            107:
                info := 'KH4,Midway Is,Oceania,61,31,-11,28,-177,KH4';
            108:
                info := 'KH5,Palmyra; Jarvis Is,Oceania,61,31,-11,6,-162,KH5';
            109:
                info := 'KH5K,Kingman Reef,Oceania,61,31,-11,6,-162,KH5K';
            110:
                info := 'KH6,Hawaii,Oceania,61,31,-10,21,-158,KH6';
            111:
                info := 'KH7,Kure Is,Oceania,61,31,-11,29,-178,KH7';
            112:
                info := 'KH8,Am Samoa,Oceania,62,32,-11,-14,-171,KH8';
            113:
                info := 'KH9,Wake Is,Oceania,65,31,12,19,167,KH9';
            114:
                info := 'KH0,Mariana Is,Oceania,64,27,10,15,146,KH0';
            115:
                info := 'KL7,Alaska,N. America,01;02,1,-8,58,-134,KL7';
            116:
                info := 'KP1,Navassa Is,N. America,11,8,-5,18,-75,KP1';
            117:
                info := 'KP2,Virgin Is,N. America,11,8,-4,18,-65,KP2';
            118:
                info := 'KP4,Puerto Rico,N. America,11,8,-4,18,-66,KP4';
            119:
                info := 'KP5,Desecheo Is,N. America,11,8,-4,18,-68,KP5';
            120:
                info := 'LA,Norway,Europe,18,14,1,60,11,JW-JX;LA-LN;3Y';
            121:
                info := 'LU,Argentina,S. America,14;16,13,-3,-35,-58,AY-AZ;LO-LW;L2-L9';
            122:
                info := 'LX,Luxembourg,Europe,27,14,1,50,6,LX';
            123:
                info := 'LY,Lithuania,Europe,29,15,3,55,25,UP';
            124:
                info := 'LZ,Bulgaria,Europe,28,20,2,43,23,LZ';
            125:
                info := 'OA,Peru,S. America,12,10,-5,-12,-78,OA-OC;4T';
            126:
                info := 'OD,Lebanon,Asia,39,20,2,34,36,OD';
            127:
                info := 'OE,Austria,Europe,28,15,1,48,16,OE';
            128:
                info := 'OH,Finland,Europe,18,15,2,60,25,OF-OJ';
            129:
                info := 'OH0,Aland Is,Europe,18,15,2,60,20,OH0';
            130:
                info := 'OJ0,Market Reef,Europe,18,15,2,60,19,OJ0';
            131:
                info := 'OK,Czechoslovakia,Europe,28,15,1,50,15,OK-OM';
            132:
                info := 'ON,Belgium,Europe,27,14,1,51,4,ON-OT';
            133:
                info := 'OX,Greenland,N. America,5;75,40,-3,64,-52,XP';
            134:
                info := 'OY,Faroe Is,Europe,18,14,0,62,-7,OY';
            135:
                info := 'OZ,Denmark,Europe,18,14,1,56,13,OU-OZ;XP;5P-5Q';
            136:
                info := 'P2,Papua New Guinea,Oceania,51,28,10,-10,147,P2';
            137:
                info := 'P4,Aruba,S. America,11,9,-4.5,13,-70,P4';
            138:
                info := 'PA,Netherlands,Europe,27,14,1,52,5,PA-PI';
            139:
                info := 'PJ2,Neth Antilles,S. America,11,9,-4.5,12,-69,PJ;PJ4;PJ9';
            140:
                info := 'PJ5,St Maarten; Saba; St Eus,N. America,11,8,-4,18,-63,PJ6-8';
            141:
                info := 'PY,Brazil,S. America,12;13;15,11,-3,-16,-48,PP-PY;ZV-ZZ';
            142:
                info := 'PY0,Fernando de Noronha,S. America,13,11,-2,-4,-32,PY0';
            143:
                info := 'PY0,St Peter & St Paul Rocks,S. America,13,11,-2,0,-29,PY0';
            144:
                info := 'PY0,Trindade & Martin Vaz Is,S. America,15,11,-2,-21,-29,PY0';
            145:
                info := 'PZ,Surinam,S. America,12,9,-3.5,6,-55,PZ';
            146:
                info := 'S2,Bangladesh,Asia,41,22,6,24,90,S2-S3';
            147:
                info := 'S7,Seychelles,Africa,53,39,4,-5,55,S7';
            148:
                info := 'S9,Sao Tome & Principe,Africa,47,36,0,0,7,S9';
            149:
                info := 'S0,Western Sahara,Africa,37,33,0,27,-13,S0';
            150:
                info := 'SM,Sweden,Europe,18,14,1,59,18,SA-SM;7S;8S';
            151:
                info := 'SP,Poland,Europe,28,15,1,52,21,HF;SN-SR;3Z';
            152:
                info := 'ST,Sudan,Africa,48,34,2,16,33,SSN-SSZ;ST;6T-6U';
            153:
                info := 'ST0,Southern Sudan,Africa,48,34,2,5,32,ST0';
            154:
                info := 'SU,Egypt,Africa,38,34,2,31,31,SSA-SSM;SU;6A-6B';
            155:
                info := 'SV,Greece,Europe,28,20,2,38,24,J4;SV-SZ';
            156:
                info := 'SV5,Dodecanese,Europe,28,20,2,36,28,SV5';
            157:
                info := 'SV9,Crete,Europe,28,20,2,36,24,SV9';
            158:
                info := 'SY,Mt Athos,Europe,28,20,2,40,24,SV1/A';
            159:
                info := 'T2,Tuvalu,Oceania,65,31,12,-9,179,T2';
            160:
                info := 'T31,Central Kiribati,Oceania,62,31,12,-4,-171,T3';
            161:
                info := 'T32,East Kiribati,Oceania,61;63,31,12,2,-158,T32';
            162:
                info := 'T33,Banaba,Oceania,65,31,11.5,-1,170,T33';
            163:
                info := 'T30,West Kiribati,Oceania,65,31,12,-1,173,T30';
            164:
                info := 'T5,Somali,Africa,48,37,3,2,46,T5;6O';
            165:
                info := 'T7,San Marino,Europe,28,15,1,44,12,T7';
            166:
                info := 'TA,Turkey,Asia; Europe,39,20,2,40,33,TA-TC;YM';
            167:
                info := 'TF,Iceland,Europe,17,40,-1,64,-22,TF';
            168:
                info := 'TG,Guatemala,N. America,11,7,-6,16,-92,TD;TG';
            169:
                info := 'TI,Costa Rica,N. America,11,7,-6,10,-84,TE;TI';
            170:
                info := 'TI9,Cocos Is,N. America,11,7,-6,6,-87,TI9';
            171:
                info := 'TJ,Cameroon,Africa,47,36,1,4,12,TJ';
            172:
                info := 'TK,Corsica,Europe,28,15,1,42,9,TK';
            173:
                info := 'TL,Central African Rep,Africa,47,36,1,5,19,TL';
            174:
                info := 'TN,Congo,Africa,52,36,1,-4,15,TN';
            175:
                info := 'TR,Gabon,Africa,52,36,1,1,10,TR';
            176:
                info := 'TT,Chad,Africa,47,36,1,12,15,TT';
            177:
                info := 'TU,Ivory Coast,Africa,46,35,0,5,-4,TU';
            178:
                info := 'TY,Benin,Africa,46,35,0,6,3,TY';
            179:
                info := 'TZ,Mali,Africa,46,35,0,13,-8,TZ';
            180:
                info := 'UA1,Russia (European),Europe,19;20;29;30,16,3,56,37,EK;EM-EO;ER-ES;EX-EZ;LY;RA-RZ;UA-UZ;YL;4J-4L';
            181:
                info := 'UA2,Kaliningrad,Europe,29,15,3,55,21,UZ2';
            182:
                info := 'UA9,Russia (Asiatic),Asia,20;21;22;23;24;25;26;30;31;32;33;34;35;75,16;17;18;19;23,7,52,104,UA0;UN;UV;UW;UZ';
            183:
                info := 'UB,Ukraine,Europe,29,16,3,50,30,UT;UY';
            184:
                info := 'UC,Byelorussia,Europe,29,16,3,54,28,EU-EW';
            185:
                info := 'UD,Azerbaijan,Asia,29,21,4,40,50,UD';
            186:
                info := 'UF,Georgia,Asia,29,21,4,42,45,UF';
            187:
                info := 'UG,Armenia,Asia,29,21,4,40,45,UG';
            188:
                info := 'UH,Turkmenistan,Asia,30,17,5,38,58,UH';
            189:
                info := 'UI,Uzbekistan,Asia,30,17,6,41,69,UI';
            190:
                info := 'UJ,Tadzhikistan,Asia,30,17,6,39,69,UJ';
            191:
                info := 'UL,Kazakhstan,Asia,29;30;31,17,5.5,43,77,UL';
            192:
                info := 'UM,Kirghizia,Asia,30;31,17,6,43,75,UM';
            193:
                info := 'UO,Moldavia,Europe,29,16,3,47,29,UO';
            194:
                info := 'V2,Antigua; Barbuda,N. America,11,8,-4,17,-62,V2';
            195:
                info := 'V3,Belize,N. America,11,7,-5.5,17,-89,V3';
            196:
                info := 'V4,St Kitts; Nevis,N. America,11,8,-4,17,-63,V4';
            197:
                info := 'V6,Micronesia,Oceania,65,27,11,7,158,V6;KC6';
            198:
                info := 'V7,Marshall Is,Oceania,65,31,12,7,171,V7;KX6';
            199:
                info := 'V8,Brunei,Oceania,54,28,8,5,115,V8';
            200:
                info := 'VE,Canada,N. America,2;3;4;9;75,1;2;3;4;5,-5,45,-76,CF-CK;CY-CZ;VA-VG;VO;VX-VY;XJ-XO';
            201:
                info := 'VK,Australia,Oceania,55;58;59,29;30,10,-35,149,AX;VH-VN;VZ';
            202:
                info := 'VK9L,Lord Howe Is,Oceania,60,30,10,-31,159,VK9L';
            203:
                info := 'VK9N,Norfolk Is,Oceania,60,32,11.5,-29,168,VK9N';
            204:
                info := 'VK9X,Christmas Is,Oceania,54,29,7,-10,106,VK9X';
            205:
                info := 'VK9Y,Cocos-Keeling Is,Oceania,54,29,6.5,-12,97,VK9Y';
            206:
                info := 'VK9Z,Mellish Reef,Oceania,55,30,10,-17,156,VK9Z';
            207:
                info := 'VK9Z,Willis Is,Oceania,55,30,10,-16,150,VK9Z';
            208:
                info := 'VK0,Heard Is,Africa,68,39,5,-53,73,VK0';
            209:
                info := 'VK0,Macquarie Is,Oceania,60,30,11,-54,159,VK0';
            210:
                info := 'VP2E,Anguilla,N. America,11,8,-4,18,-63,VP2E';
            211:
                info := 'VP2M,Montserrat,N. America,11,8,-4,17,-62,VP2M';
            212:
                info := 'VP2V,Br Virgin Is,N. America,11,8,-4,18,-65,VP2V';
            213:
                info := 'VP5,Turks & Caicos Is,N. America,11,8,-5,22,-72,VP5';
            214:
                info := 'VP8,Falkland Is,S. America,16,13,-4,-52,-58,VP8';
            215:
                info := 'VP8,So Georgia Is,S. America,73,13,-1.5,-54,-37,LU_Z';
            216:
                info := 'VP8,So Orkney Is,S. America,73,13,-3,-61,-45,LU_Z';
            217:
                info := 'VP8,So Sandwich Is,S. America,73,13,-3,-59,-27,LU_Z';
            218:
                info := 'VP8,So Shetland Is,S. America,73,13,-4,-62,-59,LU_Z;CE9;HF0;4K1';
            219:
                info := 'VP9,Bermuda,N. America,11,5,-4,32,-65,VP9';
            220:
                info := 'VQ9,Chagos,Africa,41,39,5,-7,72,VQ9';
            221:
                info := 'VR6,Pitcairn Is,Oceania,63,32,-8.5,-25,-130,VR6';
            222:
                info := 'VS6,Hong Kong,Asia,44,24,8,22,114,VS6';
            223:
                info := 'VU,India,Asia,41,22,5.5,29,77,AT-AW;VT-VW;8T-8Y';
            224:
                info := 'VU7,Andaman & Nicobar Is,Asia,49,26,5.5,12,93,VU7';
            225:
                info := 'VU7,Laccadive Is,Asia,41,22,5.5,11,73,VU7';
            226:
                info := 'XE,Mexico,N. America,10,6,-6,20,-99,XA-XI;4A-4C;6D-6J';
            227:
                info := 'XF4,Revilla Gigedo,N. America,10,6,-7,18,-113,XF4';
            228:
                info := 'XT,Burkina Faso,Africa,46,35,0,12,-2,XT';
            229:
                info := 'XU,Cambodia,Asia,49,26,8,12,105,XU';
            230:
                info := 'XW,Laos,Asia,49,26,7,20,102,XW';
            231:
                info := 'XX9,Macao,Asia,44,24,8,22,114,XX9';
            232:
                info := 'XZ,Burma,Asia,49,26,6.5,17,96,XY-XZ';
{233: }
{info := 'Y2,East Germany,Europe,28,14,1,53,13,Y2-Y9'; deleted 1990}
            234:
                info := 'YA,Afghanistan,Asia,40,21,4.5,35,69,T6;YA';
            235:
                info := 'YB,Indonesia,Oceania,51;54,28,7.5,-6,107,JZ;PK-PO;YB-YH;7A-7I;8A-8I';
            236:
                info := 'YI,Iraq,Asia,39,21,3,32,45,HN;YI';
            237:
                info := 'YJ,Vanuatu,Oceania,56,32,11,-18,168,YJ';
            238:
                info := 'YK,Syria,Asia,39,20,2,34,36,YK;6C';
            239:
                info := 'YL,Latvia,Europe,29,15,3,57,24,UQ';
            240:
                info := 'YN,Nicaragua,N. America,11,7,-6,12,-87,HT;H6-H7;YN';
            241:
                info := 'YO,Romania,Europe,28,20,2,45,26,YO-YR';
            242:
                info := 'YS,El Salvador,N. America,11,7,-6,14,-89,HU;YS';
            243:
                info := 'YU,Yugoslavia,Europe,28,15,1,45,20,YT-YU;YZ;4N-4O';
            244:
                info := 'YV,Venezuela,S. America,12,9,-4,10,-67,YV-YY;4M';
            245:
                info := 'YV0,Aves Is,N. America,11,8,-4,16,-64,YV0';
            246:
                info := 'Z2,Zimbabwe,Africa,53,38,2,-18,31,Z2';
            247:
                info := 'ZA,Albania,Europe,28,15,1,41,20,ZA';
            248:
                info := 'ZB,Gibraltar,Europe,37,14,1,37,-5,ZB';
            249:
                info := 'ZC,Cyprus SBA,Asia,39,20,2,36,33,ZC';
            250:
                info := 'ZD7,St Helena,Africa,66,36,0,-16,-6,ZD7';
            251:
                info := 'ZD8,Ascension Is,Africa,66,36,-1,-8,-14,ZD8';
            252:
                info := 'ZD9,Tristan da Cunha & Gough Is,Africa,66,38,-1,-37,-12,ZD9';
            253:
                info := 'ZF,Cayman Is,N. America,11,8,-5,19,-81,ZF';
            254:
                info := 'ZK1,No Cook Is,Oceania,62,32,-10.5,-10,-161,ZK1';
            255:
                info := 'ZK1,So Cook Is,Oceania,63,32,-10.5,-22,-158,ZK1';
            256:
                info := 'ZK2,Niue,Oceania,62,32,-11,-19,-170,ZK2';
            257:
                info := 'ZK3,Tokelau Is,Oceania,62,31,-12,-9,-171,ZK3';
            258:
                info := 'ZL,New Zealand,Oceania,60,32,12,-41,175,ZK-ZM';
            259:
                info := 'ZL7,Chatham Is,Oceania,60,32,12.75,-44,-177,ZL7';
            260:
                info := 'ZL8,Kermadec Is,Oceania,60,32,12,-29,-178,ZL8';
            261:
                info := 'ZL9,Auckland; Campbell Is,Oceania,60,32,12,-51,166,ZL9';
            262:
                info := 'ZP,Paraguay,S. America,14,11,-4,-26,-57,ZP';
            263:
                info := 'ZS,So Africa,Africa,57,38,2,-26,28,H5;S4;S8;V9;ZR-ZU';
            264:
                info := 'ZS3,Namibia,Africa,57,38,2,-22,17,ZS3';
            265:
                info := 'ZS8,Pr Edward & Marion Is,Africa,57,38,3,-47,38,ZS8';
            266:
                info := 'ZS9,Walvis Bay,Africa,57,38,2,-23,15,ZS9';
            267:
                info := '1A0,Malta SMO,Europe,28,15,1,42,13,1A~';
            268:
                info := '1S,Spratly Is,Asia,50,26,7,9,112,1S~';
            269:
                info := '3A,Monaco,Europe,27,14,1,44,8,3A';
            270:
                info := '3B6,Agalega & St Brandon,Africa,53,39,4,-10,57,3B7';
            271:
                info := '3B8,Mauritius,Africa,53,39,4,-20,58,3B';
            272:
                info := '3B9,Rodriguez Is,Africa,53,39,4,-20,63,3B9';
            273:
                info := '3C,Equatorial Guinea,Africa,47,36,-1,4,9,3C';
            274:
                info := '3C0,Pagalu,Africa,52,36,-1,-1,6,3C0';
            275:
                info := '3D2,Conway Reef,Oceania,56,32,12,-22,175,3D2';
            276:
                info := '3D2,Fiji Is,Oceania,56,32,12,-18,178,3DN-3DZ';
            277:
                info := '3D2,Rotuma,Oceania,56,32,12,-13,177,3D2';
            278:
                info := '3DA,Swaziland,Africa,57,38,2,-26,31,3DA-3DM;3D6';
            279:
                info := '3V,Tunisia,Africa,37,33,1,37,10,TS;3V';
            280:
                info := '3W,Vietnam,Asia,49,26,7,11,107,XV;3W';
            281:
                info := '3X,Guinea,Africa,46,35,0,10,-14,3X';
            282:
                info := '3Y,Bouvet,Africa,67,38,0,-54,3,3Y';
            283:
                info := '3Y,Peter I,Antarctica,72,12,-6,-69,-91,3Y';
            284:
                info := '4J1,Malyj Vysotskij Is,Europe,29,16,3,61,29,4J1';
            285:
                info := '4K2,Franz Josef Land,Europe,75,40,3,81,48,UA1';
            286:
                info := '4S,Sri Lanka,Asia,41,22,5.5,7,80,4P-4S';
            287:
                info := '4U,ITU Geneva,Europe,28,14,1,46,6,4U';
            288:
                info := '4U,UN HQ,N. America,8,5,-5,41,-74,4U';
{289: }
{info := '4W,Yemen,Asia,39,21,3,15,44,4W'; deleted 1990}
            290:
                info := '4X,Israel,Asia,39,20,2,32,35,4X;4Z';
            291:
                info := '5A,Libya,Africa,38,34,2,33,13,5A';
            292:
                info := '5B,Cyprus,Asia,39,20,3,35,33,C4;H2;P3;5B';
            293:
                info := '5H,Tanzania,Africa,53,37,3,-7,39,5H-5I';
            294:
                info := '5N,Nigeria,Africa,46,35,1,6,3,5N-5O';
            295:
                info := '5R,Madagascar,Africa,53,39,3,-19,48,5R-5S;6X';
            296:
                info := '5T,Mauritania,Africa,46,35,-1,18,-16,5T';
            297:
                info := '5U,Niger,Africa,46,35,1,14,-2,5U';
            298:
                info := '5V,Togo,Africa,46,35,0,6,1,5V';
            299:
                info := '5W,Western Samoa,Oceania,62,32,-11,-14,-172,5W';
            300:
                info := '5X,Uganda,Africa,48,37,3,0,33,5X';
            301:
                info := '5Z,Kenya,Africa,48,37,3,-2,37,5Y-5Z';
            302:
                info := '6W,Senegal,Africa,46,35,0,15,-18,6V-6W';
            303:
                info := '6Y,Jamaica,N. America,11,8,-5,18,-77,6Y';
            304:
                info := '7O,Yemen,Asia,39,21,3,13,45,7O;4W';
            305:
                info := '7P,Lesotho,Africa,57,38,2,-29,27,7P';
            306:
                info := '7Q,Malawi,Africa,53,37,2,-14,34,7Q';
            307:
                info := '7X,Algeria,Africa,37,33,0,37,3,7R;7T-7Y';
            308:
                info := '8P,Barbados,N. America,11,8,-4,13,-60,8P';
            309:
                info := '8Q,Maldive Is,Asia; Africa,41,22,5,4,73,8Q';
            310:
                info := '8R,Guyana,S. America,12,9,-3.75,6,-58,8R';
            311:
                info := '9G,Ghana,Africa,46,35,0,5,0,9G';
            312:
                info := '9H,Malta,Europe,28,15,1,36,15,9H';
            313:
                info := '9J,Zambia,Africa,53,36,2,-15,28,9I-9J';
            314:
                info := '9K,Kuwait,Asia,39,21,3,29,48,9K';
            315:
                info := '9L,Sierra Leone,Africa,46,35,0,9,-13,9L';
            316:
                info := '9M2,West Malaysia,Asia,54,28,7.5,3,102,9M4';
            317:
                info := '9M6,East Malaysia,Oceania,54,28,8,2,110,9M;9W;9M8';
            318:
                info := '9N,Nepal,Asia,42,22,5.5,28,85,9N';
            319:
                info := '9Q,Zaire,Africa,52,36,1,-4,15,9O-9T';
            320:
                info := '9U,Burundi,Africa,52,36,3,-3,29,9U';
            321:
                info := '9V,Singapore,Asia,54,28,7.5,1,104,S6;9V';
            322:
                info := '9X,Rwanda,Africa,52,36,3,-2,30,9X';
            323:
                info := '9Y,Trinidad & Tobago,S. America,11,9,-4,11,-62,9Y-9Z';
            324:
                info := '~~,Abu Ail; Jabal at Tair,Asia,39,21,2,14,43,J2/A';
            otherwise
                info := 'Error';
        end; {case}
        str := info;
        paramPtr^.returnValue := PasToZero(paramPtr, str);
    end; { main }
end. { implementation }